home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / misc / 39 / bones.c < prev    next >
Encoding:
C/C++ Source or Header  |  1986-07-17  |  3.1 KB  |  122 lines
  1. /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
  2. /* bones.c - version 1.0.3 */
  3.  
  4. #include "hack.h"
  5. extern char plname[PL_NSIZ];
  6. extern long somegold();
  7. extern struct monst *makemon();
  8.  
  9. /* objects have letter " % ) ( 0 _ ` [ ! ? / = * */
  10. #ifdef DGK
  11. static char uncurseable[] = "%*";
  12. char bones[FILENAME];
  13. #else
  14. char bones[] = "bones_xx";
  15. #endif DGK
  16.  
  17. /* save bones and possessions of a deceased adventurer */
  18. savebones(){
  19. register fd;
  20. register struct obj *otmp;
  21. register struct trap *ttmp;
  22. register struct monst *mtmp;
  23.     if(dlevel <= 0 || dlevel > MAXLEVEL) return;
  24.     if(!rn2(1 + (dlevel>>1))) return;    /* not so many ghosts on low levels */
  25. #ifdef DGK
  26.     name_file(bones, dlevel);
  27. #else
  28.     bones[6] = '0' + (dlevel/10);
  29.     bones[7] = '0' + (dlevel%10);
  30. #endif DGK
  31. #ifdef TOS
  32.     if((fd = open(bones,0x8000)) >= 0){  /*no translate*/
  33. #else
  34.     if((fd = open(bones,0)) >= 0){
  35. #endif TOS
  36.         (void) close(fd);
  37.         return;
  38.     }
  39.     /* drop everything; the corpse's possessions are usually cursed */
  40.     otmp = invent;
  41.     while(otmp){
  42.         otmp->ox = u.ux;
  43.         otmp->oy = u.uy;
  44.         otmp->age = 0;        /* very long ago */
  45.         otmp->owornmask = 0;
  46. #ifdef DGK
  47.         /* Some objects should not be curseable -dgk */
  48.         if(!index(uncurseable, otmp->olet) && rn2(5)) otmp->cursed = 1;
  49. #else
  50.         if(rn2(5)) otmp->cursed = 1;
  51. #endif DGK
  52.         if(!otmp->nobj){
  53.             otmp->nobj = fobj;
  54.             fobj = invent;
  55.             invent = 0;    /* superfluous */
  56.             break;
  57.         }
  58.         otmp = otmp->nobj;
  59.     }
  60.     if(!(mtmp = makemon(PM_GHOST, u.ux, u.uy))) return;
  61.     mtmp->mx = u.ux;
  62.     mtmp->my = u.uy;
  63.     mtmp->msleep = 1;
  64.     (void) strcpy((char *) mtmp->mextra, plname);
  65.     mkgold(somegold() + d(dlevel,30), u.ux, u.uy);
  66.     for(mtmp = fmon; mtmp; mtmp = mtmp->nmon){
  67.         mtmp->m_id = 0;
  68.         if(mtmp->mtame) {
  69.             mtmp->mtame = 0;
  70.             mtmp->mpeaceful = 0;
  71.         }
  72.         mtmp->mlstmv = 0;
  73.         if(mtmp->mdispl) unpmon(mtmp);
  74.     }
  75.     for(ttmp = ftrap; ttmp; ttmp = ttmp->ntrap)
  76.         ttmp->tseen = 0;
  77.     for(otmp = fobj; otmp; otmp = otmp->nobj) {
  78.         otmp->o_id = 0;
  79.          /* otmp->o_cnt_id = 0; - superfluous */
  80.         otmp->onamelth = 0;
  81.         otmp->known = 0;
  82.         otmp->invlet = 0;
  83.         if(otmp->olet == AMULET_SYM && !otmp->spe) {
  84.             otmp->spe = -1;      /* no longer the actual amulet */
  85.             otmp->cursed = 1;    /* flag as gotten from a ghost */
  86.         }
  87.     }
  88.     if((fd = creat(bones, FMASK)) < 0) return;
  89.     savelev(fd,dlevel);
  90.     (void) close(fd);
  91. }
  92.  
  93. getbones(){
  94. register fd,x,y,ok;
  95.     if(rn2(3)) return(0);    /* only once in three times do we find bones */
  96. #ifdef DGK
  97.     name_file(bones, dlevel);
  98. #else
  99.     bones[6] = '0' + (dlevel/10);
  100.     bones[7] = '0' + (dlevel%10);
  101. #endif DGK
  102. #ifdef TOS
  103.     if((fd = open(bones, 0x8000)) < 0) return(0);
  104. #else
  105.     if((fd = open(bones, 0)) < 0) return(0);
  106. #endif
  107.     if((ok = uptodate(fd)) != 0){
  108.         getlev(fd, 0, dlevel);
  109.         for(x = 0; x < COLNO; x++) for(y = 0; y < ROWNO; y++)
  110.             levl[x][y].seen = levl[x][y].new = 0;
  111.     }
  112.     (void) close(fd);
  113. #ifdef WIZARD
  114.     if(!wizard)    /* duvel!frans: don't remove bones while debugging */
  115. #endif WiZARD
  116.         if(unlink(bones) < 0){
  117.         pline("Cannot unlink %s .", bones);
  118.         return(0);
  119.     }
  120.     return(ok);
  121. }
  122.